home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / swapchars.raz < prev    next >
Encoding:
Text File  |  1994-08-28  |  324 b   |  15 lines
  1. /** $VER: SwapChars.raz 1.1 (28.8.94)
  2.  **
  3.  ** Pour inverser les deux précédents caractères tapés.
  4.  ** Très utile pour les malades mentaux comme bibi qui
  5.  ** passent leurs loisirs à inverser ce qu'ils tapent.
  6.  **/
  7.  
  8. OPTIONS RESULTS
  9.  
  10. Cursor LEFT COL 1
  11. GetChar; ch = RESULT
  12. Del
  13. Text2Win LEFT COL 1 "'"||ch||"'"
  14. Cursor REL COL 1
  15.